home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00733_DE-IN eur.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  848 b   |  22 lines
  1. on enterFrame
  2.   global gMaxBoutons, gSurvolAct, gSurvolPrec, gBarChron, gSujet0, gMessDef1, gBoutons, gChapAct, gEtudAct, gEtudPrec, gMessSty1, g1erSprChr, g1erSprNav, g1erSprLoc, gListBtDec, gSprSel, gLocLabel
  3.   curseur(6)
  4.   set gListBtDec to []
  5.   set g1erSprLoc to 22
  6.   set gLocLabel to "DE:RN eur"
  7.   setAt(gListBtDec, g1erSprLoc, "HSN")
  8.   setAt(gListBtDec, g1erSprLoc + 1, "APA")
  9.   setAt(gListBtDec, g1erSprLoc + 2, "NEC")
  10.   setAt(gListBtDec, g1erSprLoc + 3, "HSS")
  11.   setAt(gListBtDec, g1erSprLoc + 4, "PNE")
  12.   setAt(gListBtDec, g1erSprLoc + 5, "ORE")
  13.   setAt(gListBtDec, g1erSprLoc + 6, "HSA")
  14.   setAt(gListBtDec, g1erSprLoc + 7, "MASKEUR")
  15.   set gEtudAct to "eur"
  16.   repeat with i = g1erSprNav + 1 to gMaxBoutons
  17.     if (i <> (g1erSprNav + 5)) and (i <> (g1erSprNav + 6)) then
  18.       set the visible of sprite i to 0
  19.     end if
  20.   end repeat
  21. end
  22.